home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / UBO_EX.BAS < prev    next >
BASIC Source File  |  1988-09-28  |  413b  |  23 lines

  1. DECLARE SUB PRNTMAT (A!())
  2. '
  3. ' *** UBO_EX.BAS - UBOUND and LBOUND programming examples
  4. '
  5. DIM A(0 TO 3, 0 TO 3)
  6. FOR I% = 0 TO 3
  7.     FOR J% = 0 TO 3
  8.     A(I%, J%) = I% + J%
  9.     NEXT J%
  10. NEXT I%
  11. CALL PRNTMAT(A())
  12. END
  13.  
  14. SUB PRNTMAT (A()) STATIC
  15.     FOR I% = LBOUND(A, 1) TO UBOUND(A, 1)
  16.     FOR J% = LBOUND(A, 2) TO UBOUND(A, 2)
  17.        PRINT A(I%, J%); " ";
  18.     NEXT J%
  19.     PRINT : PRINT
  20.     NEXT I%
  21. END SUB
  22.  
  23.